conj1<-rnorm(10,mean=6,sd=3)
conj1
conj2<-rnorm(10,mean=7.5,sd=3.2)
conj2
mean(conj1)-mean(conj2)
mean(conj2)-mean(conj1)
dif=abs(mean(conj1)-mean(conj2))
dif
source("simula.r")
X11()
sim.dif<-simula(conj1,conj2,1000,"bi")
sim.maior<-simula(conj2,conj1,1000,"uni")

t.dif<-t.test(conj1,conj2,"two.sided")
t.dif
t.maior<-t.test(conj2,conj1, "greater")
t.maior